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The 

Editor * s Thoughts 

By James DeStafeno 



Mile stone number one passed by 
with noteworthy success . No one 
has told me issue dumber one 
stinks. No subscriber of "68 NEWS" 
asksql for their money back. (Be- 
cause of that Peter Stark has OKed 
us to carry the colors until far- 
ther notice.) Credit card numbers 
have been phoned in and checks 
halvfe be*en mailed in, both asking 
for & subscriptions. That is our 
life-line and we thank those that 
have done so. 

While handing out thanks, we 
have many to go around. Of course 
I feel blessed to have friends 
that think enough of me to encour- 
age the project. So "thanks" to 
all of you. 

Randy Krippner is the layout 
designer. He put in a lot of time, 
effort and a few bucks of his own 
to get the result we see. "Thank 
you", Randy. 

I feel lucky to have chosen the 
printer I did. As you can see 
their quality is really good and 
their cooperation is excellent. 
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Selections Tn * C " 

Bob van der Poel cont- 
inues with C programming 
discoveries. 



Hand Compiling, The 
Easy Way 

Peter Stark shows us a 
novel use for BASIC. 



Rush Caley, LIVE 

Do you make lists too? 



Beginner ' s Corner 

Ron Anderson continues with 
his broad brush 68xxx 
assembly programming hints 
series. 
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"Thank you", Mike and your whole 
team. 

The fact is we have had nothing 
but praise "for the first effort", 
save "more pages and writers would 
be nice". Of course our reply is, 
"Thank you. Hang in, that's what 
we want too. We'll get there." 

An eagle eye on this month's 
masthead will notice an increase 
in the subscription rates. I feel 
bad raising the rates after only 
one issue. However, as you know 
the postage rates went up on the 
third of February. We were already 
as close to the bone as we could 
get. All of you that subscribed 
from the first issue got in just 
under the wire. 

Speaking of dollars, Randy 
tried to do Bob van der Poel a 
favor by changing his S&H rate in 
his ad from $2 to $20. Bob told us 
to change it back; "It didn't fool 
anyone . " 

I hope you noticed the clear 
tape we use to hold the pages 
closed during shipping peels off 
without tearing the page. Inter- 
esting stuff . 

I was hoping to have a 
"Reader's Letters" column this 
time, but in trying to catch up 
there has been little time between 
the mailing of the first issue and 
going to press for this second 



issue. Most all the letters we've 
gotten have a check for a subsc- 
ription and a note much like Alen 
Gordon's of Miami, Florida, "Many 
thanks for the sample issue of 
<68xxx> you sent." "Best of luck." 
Maybe next time we'll have enough 
letters to make a column. If you 
let us know your thoughts, maybe 
one of them will be yours. 

On the subject of writing, 
please remember that I am looking 
for YOUR feed back. The effort is 
being made for YOU and I want to 
do good by you. Let me know what 
you are thinking about. Of course 
we are always looking for article 
contributions. What did you just 
learn and/or would like to share? 
It doesn't have to be a program, 
maybe even shouldn't be. Just some 
experience that gave you satisfac- 
tion to get right or completed. 

Don't miss the new Classified 
Ads column. Do you what or have to 
sell, new or used software or har- 
dware. The cost is low and we'll 
do the type setting. A "Wanted" 
ad, $2.50 per 50 character line 
per issue. A "Sale" ad, $5.00 per 
50 character line per issue. 

***************** 

* God bless our troops in the * 

* Gulf and all around the world.* 
***************** 
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Selections I m O 

By Bob van der Poel 



We started our discussion of 
multiway selections in C last 
month by reviewing the concept of 
a pointer to a function. This 
month we'll get a bit more fancy 
(certainly not tricky) and expand 
on this concept by setting up an 
array of function pointers. 

In my new text editor (VED for 
OSK) I needed a method of creating 
a series of cursors, depending on 
the current state of the options. 
For example, I want a block cursor 
for insert mode and an underline 
for overstrike. Complicating 
things even more, I have to be 
able to do this in normal and re- 
verse video. 

The basic technique to get a 
keypress while displaying a cursor 
is pretty straight forward: 

1. Set the terminal position to 
the correct x/y position, 

2. Turn on the correct video at- 
tribute , 

3. Display the character under the 
cursor , 

4. Wait for a keypress, 

5. Restore the original video at- 
tribute, 

6. Return the keypress to the 
calling function. 

In the above, it is (2) and (5) 
which are the problem: how does 
the cursor routine know which at- 
tributes to use. 

The first part of the answer 
lies in the parameters passed to 
the function. I pass the x/y 
screen position, the character 
under the cursor and the cursor 
type. The cursor type can be: 

0 - underline cursor 

1 - reverse video block (for use 

on normal video text) 

2 - normal video block (for use 

on reverse video text) 

For an underline cursor step 
(2) becomes a call to a function 
which turns on underlining and (5) 
turns underlining off. Similar 
sequences apply to reverse video, 
etc. Have a look at the following 
fragment to see how I did it: 



curkey(x,y,c, ctype) 
int x,y; /* x/y position 

*/ 

char c; /* character curr 

ently at cursor pos */ 

int ctype; /* cursor type 0 = 
UL, 1 & =BLOCK */ 

{ 

register char k, getkey(); 
extern int revon( ) , revoff( 

), undlnon(), undlnof 

f Ch- 
static int (*curfn[][2])()= 

{ 

undlnon , undlnof f , /* 

overstrike mode 

*/ 

revon , revof f , /* 
insert mode 

*/ 

revof f , revon /* r 

everse video input 
lines */ 

}; 

gotoxy ( x , y ) ; 
(*curfn[ctype][0] ) ( ) ; 
wri tel ( c ) ; 
k=getkey ( ) ; 
gotoxy ( x , y ) ; 
(*curfn[ctype][l])(); 
wri tel( c) ; 
return k; 

} 

There are a number of things to 
examine here. First, the line sta- 
rting with 'extern' declares the 
video functions we use. They need 
to be declared as external since 
the actual functions are contained 
in a separate source file. The 
next section creates an array 
which is pointers, pointing to 
functions. The first element of 
each entry in the array is the 
function which enables the neces- 
sary attribute, the second 
disables it. The 'static' modifier 
is needed so the compiler can set 
the pointers in the program's data 
area . 

Now examine the actual funct- 
ion: eight lines of fairly cryptic 
code. The first line sets the cor- 
rect x/y position. The second line 
calls a function. Which one? It is 
the one pointed to by the sub- 
script subscript 'ctype'. The sec- 
ond subscript, 0, points to the 
enable routine. If 'ctype' has a 
value of 0 the function undlnon() 
will be called. The third line 
displays the character which is 
supposed to be under the cursor. 
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Line four calls a function which 
gets a single keypress and assigns 
the result to the variable 'k'. 
Next the x/y position is reset, 
the video attributes are restored 
and the original character is 
again displayed. Finally, the key 
is returned to the caller. 

This could have been done with 
SWITCH .. CASE statements , but the 
method used here is much shorter 
(and faster). Not only that, but 
it is very easy to change the vid- 
eo attributes used for the cursor 
and add other cursor types: just 
change or add more entries to 
'curfn[}[]'. 

Have a good look at the decla- 
rations used in this function. I 
know it looks a bit complex with 
all those parentheses--but that is 
the correct (and only) way to do 
it. My actual function is even 
shorter than the above one since I 
wrote another function which sets 
the x/y position, attribute and 
character. See if you can set up 
the correct parameters for this 
second function and the call to 
it. 

Next month we will expand this 
concept a bit more and create a 
jump table using a structure. Un- 
til then, if you have any comments 
on this article or suggestions for 
future ones please drop me a note 
here at the "The 68xxx Machines" 
or directly to me at PO Box 355, 
Porthill, ID, 83853. 
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Comp i JL A ri £-5 


The 


Easy W-ra y 




By Peter Stark 


Although 


there are several com- 



pilers available which run under 
68000 SK*DOS, there is none for 
Basic, a language which I particu- 
larly like. And so I frequently 
write and debug programs in Basic 
(which is very easy and fast to 
use), and then hand-compile them 
into 68000 assembly language. 

Although compiling a program by 
hand seems like a difficult job, 
actually it is quite easy and fast 

once you get the knack and dev- 
elop some fairly simple steps to 
follow. In this article, I will 
describe how it's done, and give a 
simple example. Hand-compiling 
programs will work for almost all 
Basic programs except those which 
use floating-point arithmetic. We 
do not yet have a good series of 
assembly language floating-point 
routines. One great advantage of 
hand-compiling is, if you are rea- 
sonably proficient at assembly 
language programming, you can pro- 
duce very compact and fast code, 
probably faster than a compiler 
might produce. 

I have used the procedure sev- 
eral times. For example, I used 
this method to produce EDLIN, a 
simple line editor which is part 
of the SK*DOS operating system. 
The entire EDLIN program took a 
weekend to write - one day to 
write the entire Basic program and 
debug it, and a second day to tra- 
nslate it to assembly language, 
and get all the bugs out of it. 
The procedure I follow goes like 
this: 

1. Write the original program 
in Basic and debug it completely. 
Make sure all parts work, and they 
do what you want them to do. Al- 
though it is possible to make 
changes later, it is easiest to 
get it all working from the very 
beginning . 

2. Make a copy of the Basic 
program file (in ASCII, if you 
work on a PC clone), and rename it 
with a .TXT extension; this will 
be the framework of the assembly 
language program. 

3. Using an editor, insert an 
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asterisk before every line of the 
program. In this way, the Basic 
program will become a series of 
comment lines in the assembly lan- 
guage program. These Basic program 
lines, plus any other comments 
which you may add, will provide 
documentation, which is probably 
much better than most programs 
written directly in assembly lan- 
guage. This method describes not 
just what each part of the program 
does, but also HOW it does it. 

4. Now make a firm rule: do not 
remove any of these Basic state- 
ments, and do not move them 
around. Keep them in the exact 
same order as they were in the 
original Basic program. This will 
force you to write the assembly 
language program in the same 
order . 

5. Now look at the beginning 
of the program. If there are any 
DIM statements, or any initialized 
variables; set up the storage for 
them first. My own preference is 
to put all storage at the end of 
the program. Although this sepa- 
rates the Basic declarations 
(which are usually at the begin- 
ning) from the assembly language 
storage (which is at the end), it 
seems to keep things more orga- 
nized . 

6. Now continue down the pro- 
gram, and look at each line. If 
possible, translate each line into 
assembly language code literally, 
without even thinking of the con- 
text. Sometimes it will be easier 
to translate an entire group of 
lines, but wherever possible, 
treat each Basic line separately. 
As each line is translated, assume 
that all data it needs is in mem- 
ory. Do not carry anything in CPU 
registers between lines. Each 
block of code should take all its 
data from memory, process it, and 
then return everything to memory 
when done. While this may make the 
program a few lines longer, we 68K 
users usually have so much memory 
available that we can afford to 
waste a few bytes here and there. 
And it does make it much easier to 
keep track of what is happening in 
each line. 

7. Each block of assembly lan- 
guage code should have a label 
based on the line number of the 
Basic line it replaces. For 
example, the block of code which 
implements line 60 of the Basic 
program gets the label L60, (where 



the L stands for Line) . 

8. I usually make all numeric 
variables into long integers 
(using four bytes), and give all 
strings a maximum length of 79 
characters. I use a CR ($0D) de- 
limiter to mark the end of a 
string, so I reserve 80 bytes for 
them. 

9. If the Basic program uses 
functions, I usually include simi- 
lar subroutines in my programs. My 
assumptions for subroutines are 
exactly the same as calling SK*DOS 
functions, namely (a) A0-A4 and 
D0-D4 will never be changed by 
subroutines, (b) A5-A6 and D5-D7 
will be changed, (c) input into a 
subroutine will be in A4 and/or 
D4 if possible, and (d) returned 
results from a subroutine will be 
in A5 and/or D5 , if possible. 

Let's look at the following 
simple Basic program as an exam- 
ple: 

10 FOR I = 1 TO 3 

20 INPUT A$ 

30 L = LEN(A$) 

40 PRINT RIGHT$(A$,L-1) ; 

50 PRINT LEFT$(A$,1) ; 

60 PRINT "AY" 

70 NEXT I 

80 STOP 

This program translates three 
words to what kids sometimes call 
Pig Latin. The rule for Pig Latin 
is that you put the first letter 
of every word on the end of the 
word, and add "ay" to the end of 
the word. For example, TABLE be- 
comes ABLETAY. Let's look at the 
program line by line. First, I 
start with the usual -- a comment, 
a library call to bring in SK*DOS 
function names, and a START line 
with the version number: 

* Demonstration program to show 
hand compiling Basic: 

LIB SKEQUATE 

START BRA.S L10 

DC.W $0001 version number 

Now I start off translating 
each line of the program. Line 10 
becomes: 

*10 FOR I = 1 TO 3 

L10 LEA I (PC) ,A0 

MOVE.L #1, (A0) 1=1 
LEA LASTI(PC),A0 
MOVE.L #3,(A0) LAST 1=3 
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Gir eat OS-9 So£twarre 



VED: OS-9 Text Editor 



$24.96 



The best editor for OS-9 just got 
better. Version 2.0 of this best se- 
ller now includes 36 definable mac- 
ros, case-switcher, and even more 
speed. See the review in Mar/Apr Cli- 
pboard. Works with 128 or 512K. Up- 
grades to version 2.0 with new 28 pg. 
manual are $12.00 with proof of pur- 
chase. 



VPRINT: OS-9 Text Formatter . $29.95 

An unbelievably powerful formatter. 
Features include complete proportion- 
al font support, multiple columns, 
footnotes, indexing, table of conte- 
nts and more. Comes with 120 pg. man- 
ual, demo files and extensive macro 
file. 512K RAM recommended. 



Ultra Label Maker 9 .... . $19.95 

Turns your printer into a printing 
press for labels. WYSIWYG previewing. 
Supports ALL printers. Useful and 
lots of fun. One of Rush Ca ley's Top 
10. Requires 512K Coco 3. Coco 2/3 
version $14.95 



Magazine Index System 9 . . . $19.95 

Now you can find those references 
fast. Comes with extensive Coco maga- 
zine data files. File compatible with 
our RS-DOS version. Another one of 
Rush Caley's Top 10. Requires 512K 
Coco 3. Coco 2/3 version $14.95 



Sorry, no credit cards. Enclose check 
or money order plus $2 S/H. Complete 
catalog available. Send $1.00. (Free 
with order.) Most orders shipped next 
day! 

Bob van der Poel Software 



P.O. Box 57 
Wynndel, B.C. 
Canada V0B 2N0 



OR 



P.O Box 355 
Porthill, ID 
USA 83853-0355 



The above shows that. I simply 
place a 1 into a long integer 
called I , and a 3 into an integer 
called 'LAST I. (Variable storage is 
all at the end of the program.) 
Note how this block of code begins 
with the label L10, and how we use 
PC-relative addressing to refer to 
memory. Note also how the original 
Basic line becomes the comment. 

The next line becomes: 

*20 INPUT A$ 

L20 LEA QUESTM(PC) , A4 

DC PSTRNG 

print "? " 

DC INLINE 

input string 
LEA LINBUF(A6) ,A4 

move "from" address 
LEA ADOLR(PC),A5 

move "to" address 
BSR.L STRMOV 

put string into A$ 
BRA.S L30 
QUESTM DC.B "? ",4 

Since Basic always prints a 
question mark before the doing the 
INPUT, we duplicate this here by 
setting up the appropriate string 
(QUESTM) and using SK*DOS ' s PSTRNG 
function to print it. (Since we're 
using the SK*DOS print-string fun- 
ction, we use the normal delimiter 
of 4 to end the string.) The rest 
of the code uses the SK*DOS INLINE 
function to input a line of text, 
sets up A4 to point to the string 
just read, A5 to point where we 
want it to be moved into, and then 
calls the STRing-MOVe subroutine 
(shown later) to move the string 
from the line buffer into ADOLR . 
ADOLR is an 80-character buffer 
(defined at the end) which holds 
the string A$. 

The following line determines 
the length of the string A$ : 

*30 L = LEN(A$) 

L30 LEA ADOLR (PC) ,A4 

BSR . L LEN 

LEA L(PC) ,A4 

MOVE . L D5, (A4) 

store 1 ength 

We simply point A4 to the 
string and call the LEN function 
(shown later). The length, which 
is returned in D5 , is placed into 
the long integer called L. 

The next Basic line prints the 
right L-l characters of the string 
A$. For example, if A$ is "TABLE", 
then the line prints ABLE: 
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*40 PRINT RIGHT$(A$,L-1) ; 



LEA 




ADOLR(PC) ,A4 


LEA 




TEMP (PC) ,A5 


MOVE.L 


L( PCl D4 


SUB. 


,L 


#1,D4 


BSR , 


,L 


RIGHT 


LEA 




TEMP (PC) ,A4 


BSR. 


,L 


PRTSTR 



A$ 



TEMP 



L-l 



TEMP 

print string 

Our assembly code does this in 
two steps: first, it moves the 
right L characters into a tempo- 
rary string called TEMP, and then 
it prints TEMP. The first part is 
done with the RIGHT subroutine 
(which needs A4 to point to the 
input string A$ , A5 to point to 
the output string TEMP, and D4 to 
contain the length). The second 
part is done with PRTSTR (which 
needs A4 to point to the string) . 
There would have been an easier 
way of doing this (pointing A4 
into the middle of A4 and then 
using PRTSTR), but I wanted to 
show how to use the RIGHT subrou- 
tine . 

The next Basic line prints the 
first letter of A$ . Again, there 
would have been an easier way (by 
simply picking up the first char- 
acter of ADOLR and using SK*DOS's 
PUTCH function to print it), but I 
wanted to show the LEFT subrou- 
tine : 



*50 PRINT LEFT$(A$,1); 

L50 LEA ADOLR(PC),A4 

LEA TEMP(PC),A5 

MOVE.L #1,D4 



A$ 
TEMP 
1 



BSR.L LEFT 

LEA TEMP(PC),A4 

TEMP 

BSR.L PRTSTR 

print string 

The next Basic line prints the 
string "AY" at the end of the 
word. As before, there would have 
been an easier way, but this exam- 
ple shows how to use PRTSTR: 

*60 PRINT "AY" 

L60 LEA AYSTRN(PC) ,A4 

BSR.L PRTSTR 

print string "AY" 
DC PCRLF 

follow with CR/LF 



BRA.S L70 

then continue 
AYSTRN DC.B 'AY' ,$0D 

Next we have to implement the 
NEXT I statement. It takes just a 
few lines to get I, increment it, 
put it back, and check against 
LASTI . As long as I is equal to 
LASTI or less, we simply go back 
to line 20: 

*70 NEXT I 

L70 LEA I(PC),A4 

MOVE.L (A4),D7 

I 

ADD . L #1,D7 

increment 

MOVE.L D7,(A4) 

restore 
CMP.L LASTI (PC) ,D7 
check against last value 
BLS.L L20 

continue if I <= LASTI 



Line 



is almost trivial : 



*80 STOP L80 



DC WARMST 



then stop 

Finally, we have to put in the 
subroutines. If you are going to 
do hand-compiling often, it is 
very useful to write a stock set 
of subroutines to mimic the stan- 
dard Basic string functions. I 
always assume that all strings 
have a maximum limit of 7 9 charac- 
ters plus a delimiter (this is 
easily changed for special cases). 
I have done enough debugging of 
the original Basic source program 
that I don't have to worry about 
string overruns etc., so these 
subroutines are fairly simple. 
Here the are : 

* STRMOV subroutine - move a 
string from (A4) to (A5). ASSUME 
THAT 

* ALL STRINGS HAVE LENGTH 80, so 
don't bother to check for end 
STRMOV MOV EM . L A4-A5,-(A7) 

push on stack 
STRMOl MOVE.W #7 9,D7 

80-1 

STRM02 MOVE.B (A4)+,(A5)+ 
DBRA D7,STRM02 

repeat until 80 moved 
MOV EM . L (A7)+,A4-A5 

pull 

RTS 

* LEN subroutine - enter with A4 
pointing to string, exit with 
length in D5 LEN CLR.L D5 

MOVE.L A4,A5 LENA 
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QUICK ED - Screen editor and text formatter $275.00 

A high quality documentation tool and program editor ideally suited to 
laser printer users. Uses function and cursor keys on any terminal, con- 
figurable per user. Micro justifies mixed proportional text. Automatic 
table of contents generation and user-definable macros and commands. 
Drives any printer. Ideal for multi-user systems. Available on a 30-day 
try bef ore^-you-buy basis. 

F'L.EXEL I IsTT . OO - The C source code checker ..... $495.00 

Flexelint finds quirks, idiosyncracies , glitches and bugs in C programs. 
60 options control checking by symbol name or error number. Checks in- 
clude intermodule inconsistencies, definition and usage of variables, 
structures, unions and arrays, indentation, case fall-through, type con- 
versions, printf and scanf format string inconsistencies, and suspicious 
semi-colons. A must for all serious C programmers. 

IMF* - Intelligent Make Program $250.00 

IMP does everything you wished Microware's Make would do, and a great 
deal more. It is well-behaved, consistent, and extremely flexible. It 
has a built-in C-like preprocessor and has comprehensive debugging 
facilities. Rules can be user-defined, and make files for jobs other 
than assembly- language or C compilation are easily constructed. 

DISASM OSS> - OS-9/68K Disassembler . . . $250.00 

This high-speed, three-pass 68000 disassembler can also handle the 68010 
and 68020. It intelligently decodes module headers and produces symbol 
information that can be repeatedly edited and passed through the disas- 
sembler allowing iterative disassembly. The system libraries are read to 
supply symbols. 

WINDOWS - C Source Code Windowing Library $250.00 

This C source code library package supports multiple overlapping windows 
displayed on one character-based terminal screen. It supports window 
headers and footers, and pop-up windows. Windows may be moved, panned, 
written to while off-screen, etc. 

PROFILE - User State Program Profiler $270.00 

Designed to profile user-state programs. Profile effectively samples a 
traced execution building statistical information as it goes. It reads 
symbol table modules to give a function-by-function account of the time 
spent during execution. The user may "zoom in" on a function to find a 
smaller range of addresses where time is being spent. 

T?J\1St UTILITIES - C Source Code Utility Set . $250.00 

Forty useful utilities are supplied in this C source code package. In- 
cluded are utilities to move files, find files, patch disks, undelete, 
cross-reference C programs, set and remove tabs, and spell-check docu- 
ments . 

F>CZ& - MS-DOS to OS-9 Windowing System $350.00 

PC9 allows an MS-DOS computer to be used as a terminal to multiple 
processes on a remote OS-9 system linked by a single serial cable. Each 
OS-9 process is displayed through a resizable, moveable window on the PC 
screen. Terminal emulation facilities support uMACS and other screen 
editors and provide a programmable PC keyboard. Access to PC disk drives 
is also available through the OS-9 unified I/O system, giving disk 
capability to ROM based OS-9 systems. A hot key switches between DOS and 
OS-9 displays. 



Middletown Shopping Center - PO Box 78 - Middletown, DE 19709 
302-378-2555 FAX 302-378-2556 

OS-9 is a Trade Mark of Microware Systems Corp. Flexelint is a. 
Trade Mark of Gimpel Software. MS-DOS is a Trade Mark of Microsoft. 



SYSTEM IV COMPUTER 



THE SYSTEM IV is a high performance computer system based on the Motorola 68000 
microprocessor operating at a clock speed of 16 MHz and has been designed to 
provide maximum flexibility and versatility. Microware's Professional 0S9/ 
68000 operating system is included with the SYSTEM IV providing an efficient 
multi-user and mul ti -tasking environment. This provides the user with a PC for 
home use, small business applications and a viable low-cost solution for many 
industrial control applications (embedded systems). Special requirements 
(such as midi, sound, A-D/D-A, net-working, etc.) are easily handled with 
readily available low-cost PC/XT boards which can plug into the SYSTEM IV ex- 
pansion slots. And, as user reguirements change or improved special function 
boards become available, they may be added or replaced at the user's option. 
Thus, when software requiring multi-media or other new capability becomes a 
reality, the user will be able to add that capability easily and have the latest 
technology at his disposal. 

TO ACCESS THE LARGEST SOFTWARE BASE available, an MS-DOS board, the ALT86, will 
be available shortly as a low-cost option. This board has a V30 (8086) micro- 
processor running at 10 MHz, includes 1 Meg of 0-wait state RAM, uses the Chips 
and Technology BIOS, has a socket for an 8087 math co-processor and plugs into 
one of the SYSTEM IV expansion slots. Additionally, an OS9/6809 software emul- 
ator/interpreter will be available soon. The emulator/interpreter will permit 
running most COCO OS9/6809 software on the SYSTEM IV. 

OTHER OPERATING SYSTEMS may be installed. These include CPM, UNI FLEX , MINIX, 
STARDOS, REXDOS and most any other operating system capable of running on the 
68000 microprocessor chip. 

THE DESIGN OF THE SYSTEM IV is derived from previously successful designs and 
uses components that have been tested and proven in other systems. SYSTEM IV s 
uniqueness stems from the ability of its designer and manufacturer, Peripheral 
Technology, to provide well designed, reliable hardware at a low cost. Fur- 
ther, only the functions necessary to the basic operation have been designed 
into the mother board. Seven PC/XT compatible expansion slots allow an un- 
restricted selection of standard PC/XT accessory boards by the user. The user 
is not locked into any preconceived notions of what is best. 

THE MOTHER BOARD is a 4 layer XT size board which holds the microprocessor, 
sockets for up to 4 MBytes of 0-wait state RAM, a battery backed-up clock, 4 
serial ports, 2 parallel ports, a high density (37C65) floppy disk controller, 
7 PC/XT compatible expansion slots, a memory expansion connector to allow an 
additional 6 MBytes of 0-wait state DRAM, keyboard connector and the necessary 
system support chips. 

THE TERMINAL SYSTEM includes the mother board with 1 MByte of on-board DRAM, a 
high density floppy disk drive (3 1/2" or 5 1/4"), 4 serial port connectors, a 
parallel printer port connector, a 200 watt power supply, mini-PC style case 
capable of holding 5 half-height drives and Professional OS9/68000. This con- 
figuration requires the use of an external terminal (s). 

THE CONSOLE SYSTEM adds a VGA (800 x 600 x 16) graphics board and an AT style 
keyboard and provides full graphics capability at the console. Terminals may 
be added . 

THE SYSTEM IV comes with a one (1) year parts and labor warranty. 



TERMINAL System ....... $ 999.00 

CONSOLE System $1,149.00 

OPTIONS 

3 MByte additional DRAM $120.00 
Hard Disk Controller and driver $ 69.00 

40 MByte Hard Disk $295.00 
20 MByte Hard Disk $240.00 
Additional 5 1/4" or 3 1/2" HD Floppy Drive $ 92.00 

AT Style keyboard and 800 x 600 x 16 VGA Card 

and driver $159.00 
For 1024 x 768 x 256 VGA Card w/1 Meg of Memory 

in place of standard VGA card add $170.00 

Mono Display Card in place of VGA card deduct $ 50.00 



Prices subject to change without notice. 
Special monitor prices when ordered with the SYSTEM IV. 
See the PERIPHERAL TECHNOLOGY AD for kits. 
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CMP.B #$0D, (A5) + 

is next char a CR? 
BEQ.S LENEX 

yes, exit 

ADD . L #1,D5 

no, increase length 
BRA.S LENA LENEX RTS 
finally exit 

* LEFT subroutine - put left D4 
chars of (A4) string into (A5) 
LEFT BSR.S STRMOV 

copy entire string first 
ADD. L D4,A5 
MOVE.B #$0D,(A5) 

cut off end of string 

RTS 

* RIGHT subroutine - put right D4 
chars of (A4) string into (A5) 
RIGHT MOV EM . L A4-A5,-(A7) 

push on stack 

BSR.S LEN 
get length of (A4) string 
ADD . L D5,A4 

point A4 past string 
SUB.L D4,A4 
then back up to 1st char of 
desired 

MOVE.L 4(A7),A5 

restore original A5 
BRA.S STRMOl 
move string, pull, and RTS 

* PRTSTR subroutine - print 
string pointed to by A4 PRTSTR 
MOV EM . L A4-A4/D4-D4,-(A7) 

push 

PRTST1 MOVE.B (A4)+,D4 

next character 
CMP.B #$0D,D4 

is it CR? 

BEQ.S PRTST2 

yes, so stop 
DC PUTCH 

no, so print it 
BRA.S PRTST1 

then go back for next 
PRTST2 MOV EM . L ( A7 ) + , A4-A4/D4-D4 

pull 

RTS 

We are almost done. We now need 
to set aside space for all vari- 
ables. This data area assumes that 
all numeric variables are long 
integers, and that all strings get 
80 bytes: 



I 


DS 


L 


1 


LAST I 


DS 


L 


1 








last 


L 


DS 


L 


I 


ADOLR 


DS 


B 


80 


TEMP 


DS 


B 


80 



temporary string 

Since Basic assumes all vari- 
ables are zero and all strings are 
empty when it starts a program, 
you may want to initialize this 
area with appropriate DC state- 
ments rather than just defining 
storage with DS. I am usually car- 
eful in my Basic program to assume 
no initialization, so I do not 
bother with this extra step. 

Finally, we end off the program 
with 



END 



START 



The trick is to play dumb. 
Don't try to combine lines, and 
don't try to consider what each 
Basic line is doing. Simply do 
what a real compiler does: tran- 
slate each line as you go and ig- 
nore its context. Remember the 
rules for register usage, both as 
to what registers subroutines use 
and/or change, and also the rule 
that nothing gets left in the 
68000's registers between Basic 
lines. If you want to make the 
program smaller or faster, then 
wait until it is finished and run- 
ning before trying to optimize. My 
experience has been that you will 
not feel the need to make any cha- 
nges . 

So do try it. I have hand 
compiled several programs from 
Basic, and found it very useful . 
In a few cases, where I was stuck 
on a complex algorithm within an 
assembly language program, I have 
used Basic to check it out and 
then hand-compiled just that small 
portion into a larger program. It 
works. 



A$ 



- WAHTRD SS-50 equipment . SWT CPU card, also 

Gimii PIO m (30 pin) FDC. Aien E. Gordon. MD 

/ 160 NW 176 St / Miami, FL 33168 / (505) 
653-8000. 



- WASTED Floppy disk drive, double sided, for 
a CoCo. Jin DeStafeno / Rd 1, Box 375 / Wyoming, 
OB 19934 / (302) 492-8511. 



- Skhl Complete, ready to plug in; all hard- 
ware, software and manuals; super fast 20MB hard 
disk and 35/40 track, double sided floppy disk 
drive; both in one case, for CoCo I. II or III. 
Works with both BASIC and OS-9. Ho is parti- 
tioned. Used sparingly; $525. Jim DeStafeno / Rd 
1, Box 375 / Wyoming, DE 19934 / (302) 492-8511. 
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RrAsstn Caley, LIVE! 



Like a great many people in 
this country, much of my attention 
has been given to the war in the 
Persian Gulf. One of the fascinat- 
ing points of interest to me is 
the insistence on the part of the 
press to ask stupid questions at 
Pentagon briefings and other such 
gatherings. Following are examples 
of such questions. 

1. How long will the war last? 

2 . When will the ground war 
begin? 

3. Will Sadaam Hussein use 
chemical and biological 
weapons? 

The list could go on and on; but 
you see the pattern. All of this 
led me to thinking about some of 
the unanswered questions that nag 
me sometimes late into the night. 

But before I go further, I 
should explain that I am a person 
given to listmaking. For some rea- 
son it helps me to compartmental- 
ize things into nice little pack- 
ages I can open from time to time 
and study. There are lists common 
to most of us that we live by. We 



make grocery lists, lists of 
"things to do" , address lists, 
Christmas lists, and so on. But 
me? I go a step further. I have a 
list of pet peeves, a list of mov- 
ies I have on tape, a list of his- 
torical people I most admire. It 
goes on ad nauseam ad infinitum. 

That brings me back to this 
particularly favorite list of mine 
- a list of questions to which I 
really need the answers. Now I 
realize that I may not get the 
answers to many of these while 
still on this side of Paradise; 
but when I get to the other side, 
here's a few things I'm going to 
ask about straightaway: 

1. Was Bruno Hauptmann innocent 
of killing the Lindberg baby? 

2 . Were the Kennedy brothers 
truly victims of lone 
assassins? What was the 
true nature of the 
conspiracy surrounding the 
death of President Kennedy? 

3. What was the real cause of 
the extinction of the 
dinosaurs? 

4. How does the bird in a cuckoo 
clock know when to come out? 

5. Is labor racketeer James 
Hoffa really buried in a 
baseball stadium? 



PT68K2/4 Programs for REXDOS & SK*DOS 



EDDI 


A screen editor and formatter 


$50.00 


SPELLD 


A 160,000-word spelling checker 


$50.00 


ASMK 


A native code assembler 


$25.00 


SUHCAT 


A sub-directory manager 


$25.00 


KR ACKER 


A disassembler program 


$25.00 


NAMES 


A name and address manager 


$25.00 



Include operating system, disk format, terminal type and telephone 
number with order. Personal checks accepted. No charge cards. 



PALM IVEACII SOFTWARE 
Route 1 Box 119II 
Oxford, FL 32684 
904/748-5074 
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6. Did William Shakespeare write 
all of his plays? 

7. Was the moon landing in July 
of 1969 real? Or was it, as 
some say, staged and filmed 
in Col orado? 

8. Was there really a King 
Arthur; and more importantly, 
did Merlin the magician 
really live his life 
backwards? 

9. The world spins on its axis 
at over 25,000 MPH . If 
everyone in the world could 
theoretically jump up in the 
air at precisely the same 
moment, would the world spin 
out from underneath us? 

10 We know that time is an 
artificial measurement 
created by human beings. If 
time does not truly exist, 
why are we trapped within a 
specific portion of it? 

Anyway, you might want to try 
making your own list. It is very 
relaxing and takes one's mind away 
from ROMS, RAMS, nanoseconds, CRT 
glare, and other such electronic 
worries. It can provide excellent 
mental exercise; but most of all 
it's fun! 
RTC 



- NEXT MONTH - 

The last part of Bob van der 
Poel's informative "Selections 
in 'C will continue with solu- 
tions to even more complex "C" 
programming stumbling blocks. 
Ron Anderson's "Beginner's 
Corner" series will continue 
with its adventures in assembly 
language programming the 68XXX 
processor. I am confident Rush 
Caley will come up with a sub- 
ject of special interest to all 
of us. 

In addition to the above, 
there will be a surprise for 
al 1 of us . 

Of course I'd like to see a 
fist full of ads in the new 
Classified Ads column, and 
enough time should have elapsed 
for us to get enough letters 
for a "Letters" column. All in 
all, it will be an issue of 
wanted information making for 
high interest. I'm looking 
forward to it and hearing from 
you . 



Beginner ' s; Corner 
By Ron Anderson 



Now we are about to get into 
something that is most useful . 
Let's write a "Filter" program. 
Basically a filter program is one 
that reads an input file one char- 
acter at a time, performs some 
conversion on the text and writes 
the altered text to an output 
file. In simplest form, perhaps, 
it does something trivial. We 
could start with a program to re- 
duce all multiple spaces in a file 
to single ones, or even more 
basic, one that converts all lower 
case characters in a file to upper 
case. Of course if we can do that, 
we can do the reverse. 

* 

* UPPER CASE UTILITY FOR SK*DOS 
/68K 

* A PROTOTYPE "FILTER" PROGRAM 
* 

* THIS ONE CONVERTS LOWER CASE 
LETTERS TO UPPER 

* FROM FILE TO FILE 
* 

* SYNTAX: UPCASE INFILENAME 
OUTFILENAME 

* 

* INFILE MUST EXIST, OUTFILE 
MUST NOT 

* CONVERTS ONLY a-z to A-Z. ALL 
OTHER CHARACTERS 

* NOT CHANGED . 
* 

* EQUATES TO SK*DOS 
* 

FCBERR EQU 1 
VPOINT EQU $A000 
DEFEXT EQU $A024 
PSTRNG EQU $A035 
FCLOSE EQU $A008 
FOPENR EQU $A005 
FOPENW EQU $A006 
FREAD EQU $A001 
FWRITE EQU $A002 
GETNAM EQU $A023 
PCRLF EQU $A034 
PERROR EQU $A037 
PUTCH EQU $A033 
WARMST EQU $A01E 
* 

UPPER BRA. S START GOTO START 
VER DC.W $0100 VERSION NUMBER 
START DC VPOINT 

MOVE.L A6,A0 SAVE USER FCB 

POINTER FOR OUTPUT 

LEA INFCB(PC),A3 POINTER TO 
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INPUT FCB 

MO VP, . L A3,A4 POINTER 
DG GETNAM GET PILE SPEC 
BGS HELP 

MOYE.B fl,D4 DEPAULT EXTENSION 
DC DBF EXT 

MOYE.L A0,A4 OUTPUT PCB POINTER 
DC GETNAW 
BCS HELP 

HOYE.B ll,D4 DEFAULT EXTENSION TXT 
DG DEPEXT DEPAULT EXTENSION 

* 

* HOH OPEN THE PILES 
MOVB.L A3,A4 INPILE POINTER 
DC FOPENR 

BNE.S ERROR IP NOT ZERO 
MOVB.L A0.A4 OUTPILE POINTER 
DG POPENM OPEN FOR WRITE 
BNB.S ERROR IF NOT ZERO 

* MAIN LOOP TO READ AND KRITE EACH CHAR 
* 

MAIN MOfE.L A3.A4 POINT TO INPILE 
DC PREAD GO READ NEXT CHAR 
BNB.S ERROR 

* 

* HERE IS THE FILTER THAT COMPARES CHAR WITH 

* a-z and changes to A-Z 

* This section could be replaced with code to do 

* other functions. The rest of the pgn only deals 

* with opening and closing the files etc. 

CMP.B IV.D5 

BLT.S CHAR I ASCII VALUE TOO LOW TO BE IN RANGE 
CMP.B IV, D5 

BGT.S CHAR I ASCII VALUE TOO HIGH TO BE IN RANGE 
# SUB.B l$20,D5 CHANGE IT FROM LOWER TO UPPER 

* END OF FILTER, WRITR IT TO OUTPUT FILE 
* 

CHAR1 MOYE.L A0,A4 OUTPUT PILE PCB POINTER 
MOVE.B D5,D4 CHAR READ INTO D5, WRITTEN FROM D4 
DC FWRITB WRITE TO OUTPUT FILE 
BRA. S MAIN AND CONTINUB 

* 

* ERROR HANDLER 
* 

ERROR CMP.B f8,FCBERR(A4) 



BBQ.S EXIT 

DC PERROR PRINT ERROR CODE 
EXIT BSR.S CLOSB CLOSE THE FILE 
DC WARMST RRTURN TO SKDOS 

* 

* CLOSE SUBROUTINE 
* 

CLOSE MOVB.L A0.A4 POINT TO OUTPUT FILE FCB 
DC FCLOSE CLOSB FILB 
MOVB.L A3,A4 POINTER TO INPU PILE FCB 
DC FCLOSB 
RTS 

* 

HBLP LEA HLPHSG(PC),A4 

DC PSTRNG 

DC WARMST 
INFCB DS.B 608 

HLPMSG DC.B *Syntai: UPCASB INFILENAMP. 
OUTPILENAME / S0D,$0A 
DC.B "UPCASB reads an ensting file converting all 

J,he lo*er\$0D.$0A 
DC.B case letters iron infile to upper case and 

writing the ,$0D.$0A 
DC.B result to outfile. Default extensions .TXT 

„for both files%$0D,$0A 
DC.B and both default to the work drive. 

$0D,$0A,$04 
END UPPER 



There are several things to discuss. 
First, if GETNAM has an error, that means 
that a proper file specification (or 
rather two of them) are not present. In 
that case, the HELP message is to be 
printed for the user. Try running UPCASF. 
without any filenames and you will get 
the help message. 

We've used SK*DOS' system file control 
block for the output file FCB rather than 
creating our own. The choice is ours and 
it really doesn't matter much. Most writ- 
ers of utilities do take advantage of the 
system FCB which is used to load the 



68000 Single Board Computers 

KITM6 Base 16MHZ Kit with board and parts $189.00 

for RS232 operation. Includes REX/MONK. 

PT68K4-16 16MHZ Kit with 512K DRAM, 4 RS232 f $399.00 
2 Parallel Ports, HD Floppy Controller, 
PC interface, MONK/REX operating system. 

BARE BONES 16MHZ System Board with 1MB DRAM, $849.00 
Kit Cabinet, Power Supply, Choice of High 

Density Floppy, Professional OS9 with C. 

REX/MONK Operating system for PT68K2 and PT68K4 $19.95 
SK*DOS Operating system including HUMBUG $100.00 

OS9/68000 Professional OS9, includes C Compiler $299.0Q 
Additional kits are available. VISA, MC, MO accepted. 
Personal checks allow 10 days. Shipping charge $7 for kits. 
See the DELMAR AD for systems! 

Peripheral Technology 

1480 Terrell Mill Rd. Suite 870 
Marietta, GA 30067 
(404) 984-0742 
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program, but then is available to the 
user program. 

The FILTER action takes place in five 
lines clearly marked in the program 
listing. Suppose we wanted to eliminate 
multiple spaces in a text file. We could 
simply replace a section of our code with 
the following: 

This line is added just before 
the main loop 

^CLR.B D0 USE FOR MULTIPLE SPACE FLAG 

* MAIN LOOP TO READ AND WRITE EACH CHAR 
* 

MAIN MOVE . L A3.A4 POINT TO INF ILK 
DC FREAD GO READ NEXT CHAR 
BNE.S ERROR 

* 

* This code goes in the Filter slot 

* It Kill remove multiple spaces in a file 
CMP.B J$20.D5 

BNE.S NOTSP 
TST.B D0 

BNE.S MAIN IF HE'YB OUTPUT A SPACE SKIP THIS ONE 
MOVB.B f$PP f D0 SET SPACB FLAG AFTBR OUTPUT OF ONB 
BRA.S CHAR1 

NOTSP CLR.B D0 NOT A SPACB SO CLBAR SPACB PLAG 

* END OP FILTER, NOW WRITB IT TO OUTPUT PILE 



Granted this is a little more complex 
than simply making lower case characters 
upper case ones, but it is not terribly 
difficult. You can perhaps see the usefu- 
lness of such a program. Suppose for 
example, that we have somehow imported an 
MS-DOS text file that uses $0A to termi- 
nate a line. It would be simple to change 
$0A to $0D wherever it is found. That is 
an easy filter. Suppose you had written a 
book and when done, wanted to change the 
name of a character in the book from 
Frederick to Paul. That would be a bit 
harder, but you could still write a fil- 
ter program to make the change. 

Well, by now you should be pretty much 
comfortable with assembler, though we 
have not touched on a number of the inst- 
ructions of the 68000. There are the MUL 
and DIV instructions, the DBcc set, of 
which it only makes sense to use DBEQ or 
possibly DBMI. These instructions are 
useful for repeating a loop a predeter- 
mined number of times, and they save a 
small amount of code. The MULU and MULS 
(multiply unsigned and multiply signed) 
instructions are described in the user 
manual, but unless you are at least some- 
what familiar with binary arithmetic, 
they won't be easy to understand immedia- 
tely. The same can be said of the DIV 
instructions. 

- Style in Assembler Programs - 

So far we have avoided a discussion of 
Style in writing assembler programs. None 
of the "unassembled" source listings 
presented so far have been tabbed. That 



is, the labels and comments started in 
the first column, the operation mnemonics 
in the second or one space after a label, 
etc. The assembler will tabularize the 
listing when it runs, and you can have 
the assembler prepare a listing for you 
to study. Some people like to tab their 
source code so it is easier to read. I 
have no objection to that. My non-tabbing 
is probably a holdover from when a floppy 
held 90K bytes, and I had 32K of RAM to 
work with. It was advantageous to keep 
sotirce files short. 

I am going to borrow a short section 
of code from Marion Systems drivers for 
their SCSI interface for the hard disk. 
I'm sure Tom Oberheim won't mind terri- 
bly. What the code does is relatively 
unimportant, but it transmits a 6 byte 
pre-composed message to the SCSI as a 
command. Let's first do a completely 
stripped down version of it: 

PUT COM 6 MOVB.B »TCRCDM,SCSITCR 
PC6C~0HWA"IT BTST.B *BSRPHMB,SCSIBSR 

BBQ.L PC6C0MKAIT 

MOVBQ «5 f Dl 

PC6L00P MOVB.B (A0)+,D0 
BSR.L PUT BYTE 
DBF D1.PC5L00P 
MOVBQ 10, D7 
RTS 

That is a total of 9 lines of code. 
The author used long labels and symbols 
hoping to make the code more readable. I 
think it is, but only to someone already 
familiar with the SCSI device. For exa- 
mple, SCSIBSR is the SCSI Buss Status 
Register, etc. An effort was made to make 
the symbols mnemonic and suggestive of 
the thing they represented. A step in 
making this more readable would be to tab 
it. 

PUT COM 6 MOVB.B ffTCRCDM. SCSITCR 
PC6C0MWIIT BTST.B IBSRPHMB.SCSIBSR 

BBQ.L PC6C0MWAIT 

MOVBQ I5.D1 
PC6L00P MOVE.B (A0)+,D0 

BSR.L PUT BYTE 

DBP D1.PCSL00P 

MOVBQ fl0,D7 

RTS 

The next step would be to comment the 
lines of code: 

PUT_C0M_6 MOVB.B ITCRCDM,SCSITCR Only CD should 
be asserted 

PC6C0MWA IT BTST.B (IBSRPHMB.SCSIBSR Test the phase 
match bit 

BEQ.L PC6C0MWAIT Wait for this phase 
MOVBQ 15. Dl Will send 6 bytes 
PC6L00P MOVB.B (A0)+,D0 Get byte to send 
BSR.L PUT BYTE Seod it 
DBF D1.PC&L00P Loop until all bytes 

M0VB(| J0,D7 Zero G ?7 to signal 

RTS 

So far I am with this. The author, 
however, made it into the following: 
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*********** 

* PUT COM 6: ISSUE A 6-BYTE SCSI COMMAND 

* ~ 

* PUT_COM_6 First checks that the target is 

ready to receive 

* a command. It then sends 6 command bytes. 
* 

* Entry: 

* 0 points to bytes to send 

* Uses: 

* D0 for byte transfer 

* Dl for loop index 

* Returns: 

* D7 - (5 and Z flag set only if all is 

well. 
************ 

PUT COM 6 

* Set Target Command Register to COMMAND phase to 
check for 

* mismatch in lines. 
* 

MOVB.B ifTCRCDH,SCSlTCR Only Cd should be 
asserted 

* Wait for command phase 
PC6C0MWAIT 

BTST.B ffBSRPHHB,SCSIBSR Test the phase match 
bit 

BBQ.l PC6C0MWAIT Wait for this phase 
* Send 6 bytes 

MOYBQ 15, Dl Will send 6 bytes 
PC6L00P 

MOVE.B (A0)+,D0 Get byte to send 
BSR.t PUT BYTE Send it 
DBF D1.PC6L00P Loop until all bytes seot 

MOVBQ J0,D7 Zero D7 to signal OK 

PC6EXIT 

* All bytes sent 
RTS 

If I count correctly that is 49 lines 
of program for 9 lines of actual code. 
First note that ASM allows labels on 
lines by themselves. They associate with 
the next line of code. PUT__COM_6 (the 
label) is 6 lines away from the first 
line* of code. The label PC6EXIT does no 
harm, but there are no references to it. 
If you really feel that commenting to 
this degree HELPS you to understand the 
program (or more to the point, helps 
someon| else* to understand it), then so 
be it. To my mind, however, the code gets 
lost in the comments. The section of 
program of which this is part, is a 14 
page iisTting with two pages of actual 
code. In my opinion it would be easier to 
understand and use if it were four or 
fiv^ pages. In a more extreme example I 
could have chosen from the same listing 
of SCSI routines, there is one called 
WAIT_AWHILE. It uses 26 lines to document 
TWO LINES of assembler code. 

My rules for assembler code commenting 
are : 

1. Each routine or major section 
should have a heading describing what the 
routine does, what is passed to the rou- 
tine in which registers, what is re- 
turned, and which registers the routine 
uses but does not restore. The latter is 
particularly important with the 68000 
since it has so many registers. 

2 . A comment is not needed for EVERY 
line. After you've written two assembler 



programs an instruction like DBEQ D. I, LOOP 
doesn't need an tnf ormat. i onl ess comment, 
like "Go Around Again" or worse, "Bump 
The Counter". An instruction like TST.B 
Dl doesn't need the comment; "Set the 
Flags". Comments should add information 
to what is already there, not just spell 
out the instruction. 

3. A blank line can be used to sepa- 
rate minor sub-parts of routines without 
requiring a three line comment. 

4. If a listing is tabbed, labels 
stick out like sore thumbs and don't need 
a line all their own. 

If you don't like my rules, use your 
own, but be consistent. I would treat the 
above listing as follows: 

************ 

* PUT C0M_6 First checks that the target is 
rea<ly to receive 

* a command. It then sends 6 command bytes. 

* Bntry: A0 points to bytes to send 

* Returns: D7 = 0 and Z flag set if all is well 

* Uses: D0 for byte transfer 

* Dl for loop index 
************ 

* Set Target Command Register to COMMAND phase to 
check for 

* mismatch in lines. 

PUT_C0M_6 MOVE.B 0TCRCDM, SCSITCR Only Cd should be 
asserted 

* Wait for command phase 
* 

PC6C0MWAIT BTST.B 

fBSRPHMB.SCSIBSR Test the phase match bit 
^BEQ.L PC6C0MWAIT Wait for this phase 

* Send 6 bytes 
* 

MOVBQ J5.D1 Will send 6 bytes 
PC6L00P MOVB.B (A0)+,D0 Get byte to send 
BSR.L PUT BYTB Send it 
DBF Dl.PCo"L00P Loop until all bytes sent 
MOVBQ 10, D7 Zero D7 to signal OK 
RTS 

First, I would depend on the assembler 
to tab the listing later. Secondly, I 
would put all labels on the line to which 
they refer. Thirdly, things like RTS 
(ReTurn from Subroutine) hardly need a 
comment to tell us that we've reached the 
end of the code. Nor do they need an 
unused label to do the same. 

When my son or my daughter had a paper 
to write in one of their classes and they 
wanted to use the computer as a word 
processor, they always wanted to set the 
printer to double space and 10 character 
per inch, as opposed to a nice proportio- 
nal spacing printing I have that uses 
about 15 characters per inch. Why? They 
simply wanted the paper to look longer. 
Two pages are always more impressive than 
2/3 page, right? 

Unless you are a programming consul- 
tant and getting paid by the page, there 
is no need to make listings extra long. 
That wastes paper and wears out printers! 
Impress people with how short and simple 
your code is, not with how many pounds of 
paper it takes to print it. 
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